<% 
  AdminId = Trim(Session("admin_id"))
  Passwd = Trim(Session("admin_pwd"))
  If AdminId <> "" Then
    sql = "Select * From Admin Where AdminId='" & AdminId & "' And Passwd='" & Passwd & "'"
    Set rs = Conn.Execute(sql)
    If rs.EOF Then
      Response.Redirect "Login.asp"
    End If
  Else
    Response.Redirect "Login.asp"
  End If
%>
